RES ap nae x3 اجڅ‎ 


بسم الله الرحمان الرحيم 
الصلاة و السلام على أشرف المرسلين 
السلام عليكم 


إخواني المسلمين, ساقوم في هدا الدرس البسيط بشرح برنامج تخزين قيم في 
جدول وتكون هده القيم عشوائية مع كيفية ترتيبها 


على بركة الله نبدأً: 
سنقوم في البداية بإنشاء مشروع جديد 


OuYvrir un projek,., Ctrl 


Quer un Fichiat., 


Fetmer 


Informations por les dêveloppeurs ¥Yislal Basit 


Erregistret les 


î Enregistrer tout CtrlrMajts La chaîne d'informations actuelle n'est peut-être pas un flux R55 valide ou ¥oktre connexion Internet n'est 
peut-être pas disponible. Pour changer de chaîne d'informations, cliquez dans le menu Outils sur Options, 


dêveloppez Environnement, puis cliquez sur Dêmarrage. 


Clef 


Fichiers rêcents ۴ 


Quilter 


Mise en FoUte 


Kréer vakre premiëre application 
site guldêe ldêo des fonctionnalktés 
Apprendrê YB 

Holvealkês 

Espace Formations pour dêyelappeurs 11. 
Télécharger du contenu supplêmentaire 


| Fichier | Ligne | Calonne. | Projet 


Prêt 


emarref 


ثانيا نختار من شاشة مشروع جديد مامئرهء ٣٥اهءذاممه‏ ونضغط على ]م 


Affichage Outils. Fenêtre 


HOUVEAU PIOIEE 


Moadèles : 


TSE Modêles ¥isual Studio installés 


Application Eiblothèque de Application WPF Application de Application 
Wirdays Farris EEE] nawigateur WPF zansola 


| enes ap inept lx3 


Mes modêles 


Ouwrir : : ® 


Rechercher des‏ ألة خاسبة 
moadêëles en li...‏ 
Mise en route‏ 


Crêer vûtra premiğre ã) 5 
Yisite guidêe vidêo des | Projet de crëation d'une application er ligne da cammande {.NET Framework. 3.5} 
Apprendre VE 

NouwaauItês fam : tabletrie 
Espace Formations paul 
Télêcharger du contenı 


Annuler 


| Deseription | Fichier | Ligne | Colonne | Projet 


 Memarrer 


سوف تظھر لنا علی شاشة 1 eاںduأ0ص‏ 


Module Modulel 
Sub Main () 
ENG. Sub 


End Module 
end sub و الأن نبدأً بكتابة الكود المناسب وهو كالأتي بين 0ہ نهص طںء و‎ 


|— declaration 
Console.WritelLine ("entrer la taille du tableau") 
Dim taile As Integer = Console.ReadLine 
Dim tab (taile) As Integer 
Dim ech As Integer, posmin As Integer,min as integer 
Dim i As Integer = 0, j As Integer = 0 


@QJA=~= 'remlir le tableau 
Console.WriteLine (" (° 


°) EéEMpLLE lê tableau (°) 
FoR i1 = 0 To taille = 1 
Console.WriteLlLine ("entrer une valeur") : tab(i) = Console.ReadLine 
Next 


'affichage du tableau non trie‏ كن 
Console.WriteLine (" (°_°)1l'affichage du tableau (°_°)")‏ 


1 


For j = 0 To taile - 


Console.WritelLine (tab (j) ) 


"triage du tableau 


Next 


4 


ن 


Console.WriteLlLine ("table trie") 


1i = j = 0 'initialise i et j 
FOE i = 0. To taile = 2 
posmin = i 
min = tab (i) 
For j = i To taile - 1 
If tab(]j) < min Then 
min = tab(]) 
posmin = j 
EBE TLE 
NEXE 
ech = tab (i) 
tab(i) = min 
tab (posmin) = ech 
NERE 
ل‎ = 0 
e 'affichage du tableau trie 
Console.WriteLlLine (" (°_°)1l'affichage du tableau (°_°)") 
For j = 0 To taile - 1 
Console.WriteLine (tab (j) ) 
NEXE 


إظغط على £5 وستشاهد 


النتحة 


٠ هھ‎ 


Console.ReadLine () 


o file:fFIC:Documents and SettingsIGOG 


ا 


×اکا 


ا 


ntFeF la taille du tahleau 


o op Femplir le taþleau <®_@O;p 
ntFeF une valeur 


ntFerF une valeur 
ntFeF une valeur 
ntFEeEF une valeur 
ntFeEF une valeur 
ntFEeEF une valeur 


„o_opI"afFfFfichage duu tableau <®“_“}; 


able trie 
o _ “pr l"afFffichage du tableau «¢®0_o}p 


(O tabla awer trie‏ آ table awec trie...‏ آ tabletrie ([Exêre...‏ آ ...يسم الله الرحم 7ا | my‏ خا 


وكما تشاهدون أدخلنا الأرقام كما يلي[ 1/ 0 /9/ /8 /7 45] و عند الترتيب 
أصبحت [0 / 1/ 7 /8 /9 /45] 


لا تبخلوا على أخوكم في الإسلام بدعوة من قلوبكم و الله ولي التوفيق 
كمري المغرب 

هاتف 212(0674317898+) 

go@m.ri Jلیمإ‎ 


